home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
a_utils
/
_archvrs
/
unix
/
arc521.lha
/
arc
/
arcext.c
< prev
next >
Wrap
C/C++ Source or Header
|
1989-08-08
|
5KB
|
199 lines
/*
* $Header: arcext.c,v 1.5 88/06/01 19:26:31 hyc Locked $
*/
/*
* ARC - Archive utility - ARCEXT
*
* Version 2.19, created on 10/24/86 at 14:53:32
*
* (C) COPYRIGHT 1985 by System Enhancement Associates; ALL RIGHTS RESERVED
*
* By: Thom Henderson
*
* Description: This file contains the routines used to extract files from an
* archive.
*
* Language: Computer Innovations Optimizing C86
*/
#include <stdio.h>
#include "arc.h"
#if !MSDOS
#include <ctype.h>
#endif
void openarc(), closearc(), setstamp();
int free(), match(), readhdr(), unpack();
char *strcpy(), *strcat();
void
extarc(num, arg, prt) /* extract files from archive */
int num; /* number of arguments */
char *arg[]; /* pointers to arguments */
int prt; /* true if printing */
{
struct heads hdr; /* file header */
int save; /* true to save current file */
int did[MAXARG];/* true when argument was used */
char *i, *rindex(); /* string index */
char **name, *malloc(); /* name pointer list,
* allocator */
int n; /* index */
void extfile();
name = (char **) malloc(num * sizeof(char *)); /* get storage for name
* pointers */
for (n = 0; n < num; n++) { /* for each argument */
did[n] = 0; /* reset usage flag */
#if !MTS
if (!(i = rindex(arg[n], '\\'))) /* find start of name */
if (!(i = rindex(arg[n], '/')))
if (!(i = rindex(arg[n], ':')))
i = arg[n] - 1;
#else
if (!(i = rindex(arg[n], sepchr[0])))
if (arg[n][0] != tmpchr[0])
i = arg[n] - 1;
else
i = arg[n];
#endif
name[n] = i + 1;
}
openarc(0); /* open archive for reading */
if (num) { /* if files were named */
while (readhdr(&hdr, arc)) { /* while more files to check */
save = 0; /* reset save flag */
for (n = 0; n < num; n++) { /* for each template
* given */
if (match(hdr.name, name[n])) {
save = 1; /* turn on save flag */
did[n] = 1; /* turn on usage flag */
break; /* stop looking */
}
}
if (save) /* extract if desired, else skip */
extfile(&hdr, arg[n], prt);
else
fseek(arc, hdr.size, 1);
}
} else
while (readhdr(&hdr, arc)) /* else extract all files */
extfile(&hdr, "", prt);
closearc(0); /* close archive after reading */
if (note) {
for (n = 0; n < num; n++) { /* report unused args */
if (!did[n]) {
printf("File not found: %s\n", arg[n]);
nerrs++;
}
}
}
free(name);
}
void
extfile(hdr, path, prt) /* extract a file */
struct heads *hdr; /* pointer to header data */
char *path; /* pointer to path name */
int prt; /* true if printing */
{
FILE *f, *fopen(); /* extracted file, opener */
char buf[STRLEN]; /* input buffer */
char fix[STRLEN]; /* fixed name buffer */
char *i, *rindex(); /* string index */
if (prt) { /* printing is much easier */
unpack(arc, stdout, hdr); /* unpack file from archive */
printf("\f"); /* eject the form */
return; /* see? I told you! */
}
strcpy(fix, path); /* note path name template */
#if !MTS
if (*path) {
if (!(i = rindex(fix, '\\'))) /* find start of name */
if (!(i = rindex(fix, '/')))
if (!(i = rindex(fix, ':')))
i = fix - 1;
} else i = fix -1;
#else
if (!(i = rindex(fix, sepchr[0])))
if (fix[0] != tmpchr[0])
i = fix - 1;
else
i = fix;
#endif
strcpy(i + 1, hdr->name); /* replace template with name */
if (note)
printf("Extracting file: %s\n", fix);
if (warn && !overlay) {
if (f = fopen(fix, "r")) { /* see if it exists */
fclose(f);
printf("WARNING: File %s already exists!", fix);
fflush(stdout);
while (1) {
printf(" Overwrite it (y/n)? ");
fflush(stdout);
fgets(buf, STRLEN, stdin);
*buf = toupper(*buf);
if (*buf == 'Y' || *buf == 'N')
break;
}
if (*buf == 'N') {
printf("%s not extracted.\n", fix);
fseek(arc, hdr->size, 1);
return;
}
}
}
#if !MTS
if (!(f = fopen(fix, OPEN_W)))
#else
{
fortran create();
void memset();
char c_name[256];
struct crsize {
short maxsize, cursize;
} c_size;
char c_vol[6];
int c_type;
strcpy(c_name, fix);
strcat(c_name, " ");
c_size.maxsize = 0;
c_size.cursize = hdr->length / 4096 + 1;
memset(c_vol, 0, sizeof(c_vol));
c_type = 0x100;
create(c_name, &c_size, c_vol, &c_type);
}
if (image) {
f = fopen(fix, "wb");
} else
f = fopen(fix, "w");
if (!f)
#endif
{
if (warn) {
printf("Cannot create %s\n", fix);
nerrs++;
}
fseek(arc, hdr->size, 1);
return;
}
/* now unpack the file */
unpack(arc, f, hdr); /* unpack file from archive */
fclose(f); /* all done writing to file */
#if !MTS
setstamp(fix, hdr->date, hdr->time); /* use filename for stamp */
#endif
}